Dim fso, TestFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set TestFile = fso.CreateTextFile("c:\hello.txt", True)
TestFile.WriteLine("Witaj, wiecie!")
TestFile.Close
